#!/usr/bin/env perl

use utf8;
use strict;

my @people = qw< fred barney bamm-bamm wilma dino barney betty pebbles>;

print "@people\n";

my %seen;

foreach(@people){
	print "I've seen you somewhere before, $_\n" if $seen{$_} ++;
}
